Unit
lmdformA

Declaration

TLMDSendIntegerEvent = procedure(Sender:TObject; Value:Integer) of object;